000200 IDENTIFICATION DIVISION.
000300 PROGRAM-ID. SAMPLE02.
000400 ENVIRONMENT DIVISION.
000500 CONFIGURATION SECTION.
000600 DATA DIVISION.
000700 WORKING-STORAGE SECTION.
000800 01  D PIC 99.
000900     COPY SAMPC001.
001000 LINKAGE SECTION.
001100 01  A PIC 99.
001200 01  B PIC 99.
001300 01  C PIC 99.
001400 01  RES PIC 99.
001500 PROCEDURE DIVISION USING A B C RES.
001600     CALL SAMPLE01 USING A B D.
001700     COMPUTE RES = D * C.
001710     GOBACK.
